lread.c (readchar_count): New variable.
authorColin Walters <walters@gnu.org>
Tue, 28 May 2002 16:24:55 +0000 (16:24 +0000)
committerColin Walters <walters@gnu.org>
Tue, 28 May 2002 16:24:55 +0000 (16:24 +0000)
commitde28fd4d23fc6d9876e3f47921fb4c69c0011ed1
tree58bb99a492184b8b1de4fe6f1330bf8090f3f067
parentc9a85a2815167aba9a41bea2412ed3e559244b5a
lread.c (readchar_count): New variable.
(readchar): Increment it.
(unreadchar): Decrement it.
(read_multibyte): Decrement it.
(Vread_with_symbol_positions): New variable.
(Vread_symbol_positions_list): New variable.
(read_internal_start): New function, created from Fread and
Fread_from_string.  Handle Vread_symbol_positions_list and
Vread_with_symbol_positions.
(readevalloop, Fread, Fread_from_string): Use it.
(read1): Use readchar_count to add symbol positions to
Vread_symbol_positions_list if Vread_with_symbol_positions is
non-nil.
(syms_of_lread): DEFVAR_LISP and initialize them.
src/lread.c